home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 45 / 045.d81 / dragon boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  70 lines
  1. 10 rem    dragon boot by jc hilty 7/87
  2. 12 poke53280,2:poke53281,0:printchr$(142)"[147][154]"tab(9)"[154]loading dragonwick...."
  3. 13 poke147,0:sys57812"unpacker",8,1:sys62631
  4. 14 poke147,0:sys57812"pac.dragonwick",8,1:sys62631
  5. 16 poke249,224:poke250,204:poke251,0:poke252,96:poke253,0:poke254,0
  6. 18 sys51456:sys51459
  7. 80 s=54272:forx=0to24:pokes+x,0:next
  8. 81 pokes+3,8:pokes+5,41:pokes+6,89:pokes+14,117:pokes+18,16:pokes+24,143
  9. 82 readfr,dr:iffr=0thenrestore:goto82
  10. 83 pokes+4,65
  11. 84 fort=1todr:fq=fr+peek(s+27)/2
  12. 85 hf=int(fq/256):lf=fqand255
  13. 86 pokes,lf:pokes+1,hf:next:pokes+4,64
  14. 87 geta$:ifa$="y"then500
  15. 88 ifa$="n"then90
  16. 89 goto82
  17. 90 printchr$(147):print"[154]loading main program....":print
  18. 92 print"[144]load"chr$(34)"dragonwick"chr$(34)",8":print:print:print:print
  19. 93 print"run":printchr$(19)
  20. 94 poke198,2:poke631,13:poke632,13
  21. 95 end
  22. 99 data 6430,8
  23. 100 data 8583,4,8101,4,8583,4,6430,4
  24. 102 data 8583,4,8101,4,8583,4,6430,4
  25. 104 data 8583,4,8101,4,8583,4,6430,4
  26. 106 data 7217,4,6430,4,5728,4,5407,4
  27. 108 data 5728,4,7217,4,4817,4,7217,4
  28. 110 data 5728,4,7217,4,4817,4,7217,4
  29. 112 data 5728,4,7217,4,9634,4,8583,4
  30. 114 data 8101,4,6430,4,7217,4,8101,4
  31. 116 data 8583,4,8101,4,8583,4,6430,4
  32. 118 data 8583,4,8101,4,8583,4,6430,4
  33. 120 data 8583,4,8101,4,8583,4,6430,4
  34. 122 data 7217,4,6430,4,5728,4,5407,4
  35. 124 data 5728,4,7217,4,6430,4,5728,4
  36. 126 data 5407,4,4817,4,4291,4,4050,4
  37. 128 data 4291,8,5407,8,4291,8,6430,8
  38. 130 data 5407,4,6430,4,4291,4,6430,4
  39. 132 data 5407,4,6430,4,4291,4,6430,4
  40. 134 data 5407,4,6430,4,4291,4,6430,4
  41. 136 data 7217,4,6430,4,5728,4,5407,4
  42. 138 data 5728,4,7217,4,4817,4,7217,4
  43. 140 data 5728,4,7217,4,4817,4,7217,4
  44. 142 data 5728,4,7217,4,4817,4,8583,4
  45. 144 data 8101,4,7217,4,6430,4,5728,4
  46. 146 data 5407,4,6430,4,4291,4,6430,4
  47. 148 data 5407,4,6430,4,4291,4,6430,4
  48. 150 data 5407,4,6430,4,4291,4,6430,4
  49. 152 data 7217,4,6430,4,5728,4,5407,4
  50. 154 data 5728,4,7217,4,6430,4,5728,4
  51. 156 data 5407,4,4817,4,4291,4,4050,4
  52. 158 data 4291,8,5407,8,4291,16,0,0
  53. 500 poke147,0:sys57812"pac.storyone",8,1:sys62631
  54. 502 poke249,224:poke250,204:poke251,0:poke252,96:poke253,0:poke254,0
  55. 503 sys51456
  56. 504 poke198,0:wait198,1
  57. 505 poke147,0:sys57812"pac.storytwo",8,1:sys62631
  58. 506 poke249,224:poke250,204:poke251,0:poke252,96:poke253,0:poke254,0
  59. 507 sys51456
  60. 508 poke198,0:wait198,1
  61. 510 poke147,0:sys57812"pac.storythree",8,1:sys62631
  62. 511 poke249,224:poke250,204:poke251,0:poke252,96:poke253,0:poke254,0
  63. 512 sys51456
  64. 513 poke198,0:wait198,1
  65. 514 poke147,0:sys57812"pac.storyfour",8,1:sys62631
  66. 515 poke249,224:poke250,204:poke251,0:poke252,96:poke253,0:poke254,0
  67. 516 sys51456
  68. 517 poke198,0:wait198,1
  69. 520 goto90
  70.